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DECUS Program Library Write-up 


DECUS NO. 8-574 


TD8E SYSTEM HANDLER FOR 8K PS 8 


by 

Harold T. Salive 8 Kim D. Ng, 
Department of Psychiatry, 
School of Medicine, 
University of Auckland 


These programs allow someone having a PDP8 computer, 
a TD8E controller and only 8K of core, to run PS8. The 
package consists of three programs: a RIM loader switched 
load-and-go bootstrap system handler for PS8, a program to 
change the system slightly to protect the system handler, 
and a listing of a single drive DECtape copy routine. 

The load-and-go bootstrap assumes a RIM loader for the 
high speed reader which begins at loc 07756 is used to load 
the bootstrap and that the bootstrap is loaded on the high 
speed reader. However, the enclosed listing of the handler 
pages could be used to generate a low speed reader version. 
The MONITOR ASsign and DEassign commands should not be used 
for this version of PS8 since the handler uses locations 
17741 to 17757, the ASsign region; the system protection 
program deletes these commands from the MONITOR. The handler 
remains vulnerable to ODT. 

Generally three steps should be followed in starting 
PS8. First, a copy should be made of the PS8 system DECtape; 
all subsequent operations should then use the copy. Second, 
the copy of the system tape should be loaded on the drive 
and the bootstrap loaded starting the system. Third, the 
system protection program should be run. The computer 
should then be halted and the system tape unloaded and 
preserved as a local master tape. Copies of the local master 
tape should be used in normal operation of PS8. Starting 
copies of the local master tape or restarting the system. 
after destruction of the handler requires only switching in 
the bootstrap. 


I. COPYING DECTAPES WITH ONLY ONE TAPE DRIVE 

Among the listings at the back of this writeup is a 
listing for a tape copy program. Assemble a copy of this 
program. Then assemble a copy of the standard two page 
TDIE read/write routine defining AFIELD=1 and MFIELD =10 hut 
otherwise unchanged. Load both programs with the BIN loader. 
Then get the PS8 system tape (DEC-P8-MSUB-UC) and a second 
tape in standard DEC tape format. 
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1. Load the PS8 tape on the drive with UNIT = 0 and 
the write switch at WRITE LOCK. Make sure enough 
tape (4 feet) is on the right reel so that the tape 

is not in the endzone. Set the mode switch to REMOTE. 

2. Set the Switch Register to 0011 (base 8) and press 
EXTD ADDR LOAD. 

3. Set the Switch Register to 7000 (8) and press ADDR 
LOAD then START (CLEAR -> CONT). 

4. Wait until the run light goes off and the tape stops 
for several seconds. 

5. Dismount the PS8 tape. 

6. Mount the new tape keeping the UNIT =0. Set the 
switches on the drive to WRITE ENABLE and REMOTE. 

Be sure several feet of tape are on the right reel. 

7. Press CONT on the computer. 

8. When the computer and tape drive halt, move the 
write switch to WRITE LOCK and remove the tape. 

(One round is complete and 58 (10) blocks are copied.) 

9. Mount the PS 8 tape making sure the write switch is on 
WRITE LOCK . Set the mode to REMOTE and press CONT. 

10. Repeat steps 4-8. (Round 2 is then complete. At this 
point 116 (10) blocks of 128 words have now been 
transferred.) 

11. Repeat steps 9 and 10 ten more times to transfer a 
total of more than the 618 (10) blocks saved on the 
PS8 tape. 


Note: If the bell rings on the teletype at any time during 

the copying procedure, stop immediately! Then reload the two 
copy programs and start again at step T. 


II. THE BOOTSTRAP SYSTEM HANDLER 


If you do not have an high speed reader, you will have to 
use the listing at the end of the writeup to generate your 
own bootstrap loader. The paper tape consists of leader code 
followed by a short routine in RIM code followed by trailer 
code followed by machine code for most of the top page of 
field 1 followed by machine code for the top page of field 0. 

The machine code is stored in 6 bit form with the first word of 
each pair being bits 0-5 and the second word being bits 6-11 
of the twelve bit word. 
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OPERATION: 








1. Put the bootstrap tape in the HSR positioned with 
the leader code over the read head. 

2. Turn on the HSR. 

3. Mount the copy of the PS8 system DECtape on the 
drive with UNIT = 0, WRITE ENABLE, REMOTE. (Make 
sure 4 or more feet of tape are on the right reel.) 

4. Start the RIM loader for the HSR(SA=07756). If 
you have the RIM loader hard wired, then just 
press the RIM switch. 

5. When the system responds with on the TTY, PS8 

is in operation. 

FEATURES: 

The bootstrap preserves all of core except the top page 
of each field when it is restarted. Thus, if a user program 
destroys the handler, the system can be bootstrapped and the 
user program examined with ODT. 

The system handler assumes only fields 0 and 1 are in 
use and will not support calls from other fields. Unit DTA1 
destroys the handler and should be deleted with the protection 
program. Use of the ODT breakpoint feature should be followed 
by restoration of the handler in 17741 - 17757 before a tape 
read; the listing at the end of this writeup shows values 
which should be restored by ODT. The system handler only reads 
and writes 128 word records. 

The system handler does no checksumming, thus making it 
slightly susceptible to longitudinal READ errors. Practically 
this should not be a problem. Lack of checksums also results 
in some incompatibility with the standard TD8E two page 
routine. In practice this problem can be overcome by rewriting 
each block on the tape with the two page handler. Using the 
two page handler to read one block, the routine will read 3 
times and take the error exit with the data actually saved in 
the buffer. Rewriting the one block (128 words) will then 
save the block on tape with a checksum. Alternatively, 

DEC-8E-UZTA-D can be changed by removing the 5341 at loc 7265 
at line 178 of the listing. Storing 0 or 7000 in that location 
in the two page routine in core will allow the routine to 
ignore checksum errors. 
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III. SYSTEM PROTECTION PROGRAM 




This program removes the ASsign and DEassign commands 
from the MONITOR (subsequent attempts to use AS or DE result 
in "?") and deletes various device names from USR. The 
protection program checks to make sure that the correct 
system programs are being changed. If the locations being 
changed are not found, the protection program quits. DTA1 is 
automatically deleted from USR since the system handler only 
works for tape unit 0. Deletion of other devices depends on 
the user’s answers to queries from the program. A listing of 
the protection program is shown at the back of this writeup. 

OPERATION: 

1. When the system is loaded and responds with type 

R ABSLDR(CR) where (CR)=RETURN key. 

2. When the system responds with "*", type 
PTR:=12200(89)/G$ where $=ALT MODE key. 

3. When the system responds with "t", put the System 
Protection Program in the HSR with leader over the 
read head and the HSR switched on. Then type a 
character on the TTY, e.g. "R". 

4. The program should then start, typing "HELLO!” 

5. Answer the questions on the TTY by typing a single 
character: "Y" for YES or else any other character 
for NO. Feel free to answer N (NO) if you are not 
sure the devices saved are OK; the program will start 
over again asking about device deletion. 

6. When the program finishes, it returns control to the 
MONITOR which responds with a "." and awaits your 
command. 

EXAMPLE: 

Shown below is a sample run with the System Protection 
Program for someone with only an high speed reader and punch 
and one tape drive. User responses are underlined. 

In the example, the answer to "ARE YOU SURE THIS IS OK?" is 
"Y" indicating that there is no need to start device deletion 
over again. 


4 











. H ...Ai±SLl-lrt 

*PTK: =1 'd'4^A <tt 9)/G S t_ 


HELLO! 

PHQGkaM TO PHOTECT TDttE SYSTEM HAMDLErt 

00 YOU WrtivlT TO HUM THIS PHOGKAM(Y=YES;AMY OTHEH CHaH=NO)?:Y 
AS AMD DE HEMOVED FHOM MOMITOH. 


USK DEVICES HEING DELETED FKOM PSb. 

DTAx) j SYS.* DSK,TTY ,PTP,PTH SAVED AUTOMATICALLY. 
DTA1 DELETED AUTOMATICALLY. 

ANSVKH THE FOLLOWING MUESTIOMS<Y=YES); 


UAMT LIME HKI'ifEK LPT?!^ 


DO 

YOU 

WANT 

TA J 

E 

DTA27M 

1)0 

YO U 

WANT 

Tav 

E 

DTA37M 

DO 

YOU 

WANT 

Tap 

E 

dta4?m 

DO 

YOU 

‘•'ANT 

TAP 

E 

DTA57U 

DO 

YOU 

WANT 

TAP 

E 

DTA6?1 

DO 

YOU 

WANT 

TAP 

E 

DTA77M 

DO 

YOU 

WANT 

CAH 

)) 

HEADFH 


YOU HAVE SPECIFIED SAVING ONLY'S 
SYS , DSK, TTY j UTAH , PTP , PTH, 



AHE YOU SUHF; THIS IS 0K( Y = YES) ??? :_Y 
****DEVICES CHANGED*** 

PJXIT TO MOMITOH 
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/ DECTAPE COPY PROGRAM. 26-6-72 


PALti 6/0/72 


PAGE 1 


/ DECTAPE COPY PROGRAM. 26-6-72. 

/ THE ROUTINE AMD THIS COPY PROGRAM ARE ALL IN FIELD 1. 
/ASSEMBLE TUBE rtOUTIME DEiC-6 E-UZTA-PA STARTING AT 17200 
/CHANGE fO AFIELD=1 AMD MFIELD=10.J OTHER PARAMETERS JMCHANGE) 

FIELD 1 

*7000 


7000 

7300 

START, CLA 

CLL 

700 1 

1 233 

Tad 

ARG1 

700 2 

1 244 

tad 

K4400 

700 3 

0246 

and 

MASK770 7 

7004 

3233 

DCA 

A RG1 

700 5 

1 235 

TAD 

A RG3 

7006 

74 30 

SZL 


700 7 

52 1 3 

JMP 

. +4 

70 1 0 

1 241 

TAD 

M3 7 

70 1 1 

32 35 

DCA 

ARG3 

70 1 2 

521 5 

JMP 

. +3 

70 1 3 

1 242 

TAD 

K33 

70 14 

3235 

DCA 

ARG3 

70 1 5 

4230 

JMS 

RDWT 

70 1 6 

7300 

CLA 

CLL 

701 7 

1 243 

TAD 

K3 7 

70 20 

1235 

TAD 

ARG3 

70 21 

3235 

DCA 

ARG3 

70 22 

1233 

tad 

ARG1 

70 2 3 

1 245 

TAD 

K74 1 0 

7024 

3233 

DCA 

MHG1 

70 25 

4230 

JMS 

kdmt 

7)26 

740 2 

HLT 


70 2 7 

520 0 

JMP 

START 


70 30 

0000 

HD'-'T, 

0 

7 A 3 1 

6213 


6213 

1AM. 

4 640 


JMS I ENTRY 

7'A 3 3 

730 3 

ARG1 , 

730 3 

70 34 

0 20 0 

AHG2 , 

200 

70 35 

7 74 5 

ARG3, 

-33 

70 35 

524 7 

ERROR, 

JMP BELL 

70 3 7 

6630 


JMP I RDWT 

7040 

72 A A 

ENTRY, 

720 0 


7041 

7741 

M3 7, 

-37 

7042 

0033 

K33 , 

33 

7043 

0037 

K37 , 

37 

70 44 

4400 

K4400 , 

4400 

70 4 5 

7410 

K7410 , 

7410 

7046 

7707 

MHSK7707 



/IF HEAD ADD 33 BLOCKS 
/LIMK=0 ==> WHITE 
/OVERFLOW FROM ARG1 
/FOR HEADING 
/WHITING RESET TO BEGIN 


/HEAD 

/do 37 pages first 


/NEAT BLOCK 


/DO THE NEAT 33 PaGES 
/NFAT OPERATION INITIATED 
/BY PRESSING COMT. KEY 


/CD I 1 

/ENTRY TO DO HEAD WHITE 
/AFTER MASKING HEAD FIRST 
/ALWAYS START AT LOC.200 


/CORRECT RETURN 


/BACK TO FIELD 0 
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/ DKCTAHE COPY BKOGHAtM. 2A-6 -12 


HALrf B/B/7B 


a a g e 1-1 


70 4 7 

7300 

tiF.LLj 

OLA 

70 50 

12 5 7 


TAD 

1A 51 

6041 


TSF 

7 AW 

52 51 


JMA 

70 53 

604 6 


TLS 

70 54 

7402 


HLT 

70 55 

740 2 


HLT 

7056 

5247 


JMh> 

70 5 7 

0207 

K20 7, 

20 7 


4!l> 





CLL 

K2 : d 7 /CODE FOH BELL 

. -1 

BELL 
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/ PS6 SKELETAL HANDLE* FIELD O PALB B/B/72 HADE 1 
/ PSb SKELETAL HANDLER FIELD 0 

/DEPARTMENT OF PSYCHIATRY* UN 11/ OF AUCKLAND* Nf>» ZEALAND «/* 

/LOAD AND GO WEKSION EXPECTS KIM LOADER HER INN I NO AT 0 7756 S 
/A HI OH SPEED HEADER IN THE SYSTEM FOR LOAD AMD 00 TAPE! 

/OAHlABLE DESIGNATIONS IN THIS PROGRAM AGREE WITH STANDARD 8 
/WRITEUP GENERALLY. 




FIELD 0 
*7600 



7600 

420 7 

PSO * 

420 7 


760 1 

5000 

PS1 * 

5000 


7 60 2 

00 00 

PS2* 

0 


760 3 

00 33 

PS3* 

33 


7604 

7740 

PSA * 

7 740 


760 5 

62 1 3 

PS5* 

621 3 


7 60 6 

5267 

PS6 * 

5267 


760 7 

0000 

SUB* 

0 


7610 

7305 


CLA 

CLL IAC RAL 

761 1 

6214 


KDF 


761 2 

1 354 

Cl 000* 

TAD 

FLD 

761 3 

3350 


DCA 

EXIT 

7614 

1 60 7 

C1400 * 

TAD 

I SUB /AHG 1 

761 5 

700 4 


HAL 


761 6 

0322 


AMD 

C7600 

761 7 

3377 


DCA 

BUFFST 

7620 

1 60 7 


TAD 

I SUB 

762 1 

0 3 55 


AMD 

C70 

7622 

1 354 


TAD 

FLD 

762 3 

3236 


DCA 

WORDS 

7624 

7026 


CML 

HTL 

762 5 

3202 


DCA 

PS2 

7626 

2207 


IS/ 

SUB 

762 7 

1 60 7 


TAD 

I SUB /AHG 2 

7630 

3376 


DCA 

BUFF 

7631 

220 7 


IS4 

SUB 

7632 

1 60 7 


TAD 

I SUB /ARG 3 

7633 

1 34 7 


TAD 

PS4 7 

7634 

700 4 


HAL 


7635 

3 363 


DCA 

BLOCK 

7636 

0000 

WORDS* 

0 


7637 

2207 


IS/. 

SUB 

7640 

2207 


IS4 

SUB 

7641 

7232 

GO* 

CLA 

CML RTR 

7642 

1212 


TAD 

Cl 000 

7643 

6774 


SDLC 

7644 

42 65 


JMS 

RDM UAD 

7645 

4265 


<J MS 

RDUUAD 

7646 

6212 

C 6'B 1 2 * 

6212 

7647 

5341 


JMP 

C41 

7650 

6777 

CO NT* 

SDRD 

7651 

7430 


SZL 


7652 

1 355 


TAD 

C 70 

7653 

7040 


OMA 
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/ HS« SKELETAL HANDLE* FIELD 0 


HA LB 


6/6/72 


HAGF 1-1 


7654 

1 363 


TAD BLOCK 



7655 

7'd AD 


CMA 



7656 

7 A 50 


SNA 



7657 

5* 7y 


JMH FOUND 



766H 

7670 


SZL SNA CLA 



7661 

5a A 6 


JMH C6212 



7662 

6776 

END/1, 

SDRC 



7663 

7106 


DLL KTL 



7664 

52A1 


JMH GO 



7665 

0 000 

HDM'JAD, 

0 



7666 

6773 


SDSM 



7667 

52 66 


JMH .-1 



767tf 

6777 


SDKD 



7671 

5665 


JMH I HDNUAD 



7672 

7630 

FOUND, 

SZL CLA 



7673 

52 A 1 


JMH GO 



7674 

6771 

CriKSUM, 

SDSS 



7675 

527A 


JMH .-1 



7676 

6776 


SDKC 



7677 

0 32 7 


AND K77 



7700 

1 20 A 


TAD HSA /LOOK 

FOB MARK CODE 

AM 

771 1 

76A0 


SLA CLA 



770 X 

52 7A 


JMH CriKSUM 



770 3 

1 322 


TAD C7600 



770 4 

3236 


DCA WOHDS 



770 5 

1 202 


TAD HS2 



770 6 

7112 


CLL HTH 



770 7 

121 A 


TAD Cl A00 



7710 

7 A 20 


SML 



771 1 

677A 


SDLC 



771 y 

7 A 30 


S/.L 



7713 

A265 


JMS HDWUAD /A 

LINES FORWARD 

TO 

7714 

7630 

NXT, 

SZL CLA 



771 5 

532A 


JMH HEAD 



771 6 

1 776 

WHITE, 

TAD I BUFF 



771 7 

6773 


SDSM 



77^0 

531 7 


JMH .-1 



7721 

6775 


SDLD 



7722 

7600 

C 7600 , 

7600 



7723 

5326 


JMH LAST 



7724 

A265 

HEAD, 

JMS HDNUAD 



7725 

3776 


DCA I BUFF 



7726 

2376 

LAST, 

ISZ BUFF 



7727 

0077 

K77 , 

77 



7730 

2236 


ISZ WORDS 



7731 

531 A 


JMH NXT 



7732 

6773 


SDSM /WAIT TO 

WHITE 126TH WORD 

7733 

5332 


JMH .-1 



7734 

7100 


CLL 



7735 

1 377 


tad buffst 



7736 

1 322 


TAD C7600 



7737 

7A50 


SNA 



7740 

53 50 


JMH EXIT 



7741 

3377 

CA1 , 

DCA BUFFST /LINK=1 


7742 

2363 


ISZ BLOCK 
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/ RSB SKELETAL HANDLER FIELD i A HALB B/6/72 


RAGE 1 -2 


7743 

5241 


JMR GO 

7744 

6203 

RS44, 

620 3 

7745 

7 600 

RS45, 

7600 

7746 

1 000 

RS46, 

1000 

7747 

0000 

RS47, 

0 

7750 

0000 

EXIT, 

0 

7751 

7300 


CLL CLA 

7752 

6774 


SDLC 

7753 

560 7 


JMP I SUB 

7754 

6201 

FLD, 

6201 

7755 

0010 

C70, 

10 

7756 

0000 

R56, 

0 

7757 

4756 

R57, 

4756 

7760 

0000 

R60, 

0 

7761 

0000 

R61 , 

0 

7762 

0000 

R62, 

0 

7763 

7402 

BLOCK, 

7402 

7764 

5372 

R64, 

5372 

7765 

4207 

R65, 

4207 

7766 

0100 

R66, 

0 100 

7767 

7400 

R67, 

7400 

7770 

0037 

R70, 

37 

7771 

7402 

R7l , 

7402 

7772 

6203 

R72, 

620 3 

7773 

6042 

R73, 

6042 

7774 

5775 

R 74 , 

5775 

7775 

0000 

R75 , 

0 

7776 

0000 

BUFF, 

0 

7777 

0000 

B'JFFST , 

0 
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/ RSd SKELETAL HANDLER FIELD 0 RALb b/b/72 RARE 1-3 


BLOCK 

7763 

BUFF 

7776 

BUFFST 

7777 

CHKSUM 

7674 

CO NT 

7650 

Cl BOB 

7612 

C1400 

7614 

C41 

7741 

C6212 

7646 

C 70 

7755 

C7600 

7722 

EMDZ 

7662 

EXIT 

7750 

FLD 

7754 

FOUND 

7672 

GO 

7641 

K7 7 

7727 

LAST 

7726 

NXT 

7714 

RS0 

7600 

RSI 

76(4 1 

RS2 

76*5 2 

RS3 

76B3 

RS4 

7604 

RS44 

7744 

RS45 

7745 

RS4 6 

7746 

RS4 7 

7747 

RS5 

760 5 

RS6 

7606 

R56 

7756 

R57 

7757 

26*5 

7760 

R61 

7761 

B62 

7762 

R64 

7764 

R65 

7765 

R66 

7766 

R67 

7767 

R70 

7770 

R71 

7771 

R72 

7772 

R73 

7773 

R74 

7 7 74 

R75 

7775 

KDOUAD 

7665 

READ 

7724 

SUB 

760 7 

WORDS 

7636 

WRITE 

771 6 
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/H>Srt SKELETAL HANDLE.* FIELD 1 


AAL6 




^ADF 1 




/AStt 

SKFLFTaL 

HANDLFK FIELD 

1 



/ HSVCrilATrtY DEHT UN IV OF 

AUCKLAND 



FIELD 
* 7 6 4 6 

1 



76'46 

5*3 5 

*46, 

5*3 5 

/KO'JTINE TO LOAD HMDLEK 

76/4 7 

7637 

*4 7, 

763 7 



7663 

763 7 

* 53 , 

7 63 7 



7651 

3 3 3 3 

*61 , 

3 



765* 

33 3 3 

A 5* , 

3 



7663 

7 63 7 

*53, 

763 7 



7654 

3 3 3 3 

*54, 

3 



7656 

3333 

*55, 

3 



7656 

333 3 

*56, 

3 



7667 

3 3 3 3 

*57, 

3 



766/1 

33 33 

A 63 , 

3 



7661 

3 3 33 

*61 , 

3 



766* 

33 3 3 

*6*, 

3 



7663 

3 3 3 3 

*63, 

3 



7664 

3333 

A 64 , 

3 



7665 

3 333 

*65, 

3 



7666 

3333 

A66, 

3 



7667 

6*3* 

A 67 , 

6*3* 



7673 

A*3 7 

A 73 , 

4*3 7 



7671 

1 333 

A 7 1 , 

1333 



767* 

3 3 3 3 

A 7* , 

3 



767 J 

333 7 

A 7 3 , 

7 



767A 

7 7 A 6 

- > 7A, 

7746 



7675 

6*3 3 

A75, 

6*3 3 



7676 

5677 

A76 , 

5677 



7677 

3 A 3 3 

A77 , 

3 43 3 



77 '13 

3 3 3 3 

A3 , 

3 



773 1 

3 3 A3 

->1 , 

3343 



773* 

6*1 A 

A*, 

6*1/4 



773 3 

1*75 

A3, 

1*75 



7 73 A 

3336 

aa. 

3336 



773 5 

6*3 1 

A 5 , 

6*3 1 



773 6 

1 67A 

A 6 , 

1 674 



7737 

73 1 3 

A 7 , 

73 1 3 



7713 

6*1 1 

A 1 3 , 

6*1 1 



771 1 

7 633 

All, 

7633 



771 * 

53*1 

Al*, 

53*1 



77 13 

6*3* 

A 1 3, 

6*3* 



77 1 A 

A * 3 7 

A 1 A , 

4*3 7 



771 5 

53 1 3 

Al 5, 

53 1 3 



7716 

3 3 3 3 

Al 6, 

3 



771 7 

33*7 

Al 7, 

33*7 



77*3 

7763 

M* 3 , 

7763 

/CONSTANT fok 

HaMDLEk 

77*1 

6*3* 

A* 1 , 

6*3* 



77** 

A * 3 7 

A**, 

4*37 



7 7*3 

3613 

A* 3, 

3 613 



7 7* A 

•3 3 3 3 

->*4, 

3 



77*6 

33 1 3 

A* 5, 

33 1 3 



77*6 

7673 

Ml 13, 

7673 

/CONSTANT FOK 

HANDLER 

77*7 

53*3 

H>*7, 

53*3 



7733 

6*3* 

A 33, 

6*3* 




b/*/7* 


FLD 3 IS 


A H DDF •)'\l 


J AG 
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/^so SKKLFTrtL HrtMDLEH FIELD l 


ErtLrt s/«/7H 


1-1 


7731 

423 7 

H31 , 

4 23 7 


77 3 £ 

1 *3 1 3 


1 3 1 3 


77 3 3 

333 3 

E33, 

3 


77 34 

3 3 2 7 

h;34 , 

3 32 7 


773S 

3374 

CJ74, 

3 74 /CONSTANT FOK maMDLFH 


7736 

3 33 3 


3 


7737 

5733 

F37, 

5 733 


77 4*3 

3 3 3 3 


3 


774 1 

6771 

SKCH , 

SUSS /EMTKY FK()M HAMDLFK FI FLU 

3. Mb SI Di'J M r D 1 1 ) \J 

7742 

534 1 


. -1 /OUT MAY DFSTKOY THIS 

HEDIOM ( 1 77/11 -17757) 

774 3 

6776 


SUrtG /m>T BKEAKHOIMT AMD K T JM 

C'HMtvirtMDS CMlTIGrtL 

7744 

7136 


DLL KTL 


7745 

3 33 5 


AMD C3 74 


7746 

1 326 


TAD Mi 13 


7747 

74 53 


SMA 


77 63 

5356 


JM4-> END 


7761 

1 323 


TAD M23 


7752 

7 643 


SZA CLA 


77 63 

5341 


DMA SKCH 


7 7 54 

623 is 


623 2 


7756 

52 53 


JMH H53 


7766 

623 2 

Kt'JI), 

623 2 


7767 

5262 


JMH F62 


7763 

4 1 63 

T 1 , 

4 1 63 


7761 

4 1 63 

ry. 

4 1 63 


776k! 

3 333 

T3, 

3 


7763 

1 3 43 


1 3 43 


7764 

4 1 63 

ts. 

4 1 63 


7766 

4 1 63 

T6, 

41 63 


7766 

4 1 63 

T7> 

4 1 63 


7767 

4 1 63 

T«j 

41 63 


77 73 

4 1 63 

Tv, 

4 1 63 


7771 

4 1 63 

T 1 D , 

4 1 63 


77 7 ^ 

4 1 63 

Til, 

4 163 


77 7 3 

4 1 63 

Tiy, 

4 1 63 


77 74 

1 323 

T1 3, 

1323 


777 5 

23 1 3 

TM< 

23 13 


7776 

2333 

T 1 5, 

23 33 


7777 

4713 

T1 6, 

4713 




bS> 
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/PROGRAM TO PROTECT TDttE SYSTEM PAL« tt/b/72 PAGE 1 

/PROGRAM TO PROTECT TDttE SYSTEM HANDLER AUGUST R,1972 


FIELD 1 
*2200 


2200 

6040 


SPF 

2201 

6213 


6213 

2202 

4777' 


UMS MESAGE 

220 3 

22 56 


HELLO 

2204 

4777 ' 


JMS MESAGE 

2205 

2310 


HELL02 

220 6 

4777' 


JMS MESAGE 

220 7 

2344 


HELL03 

2210 

6031 


KSF 

221 1 

5210 


JMP .-1 

2212 

6036 


KRB 

2213 

6046 


TLS 

2214 

1 376 


TAD (7447 

22 1 5 

7640 


SZA CLA 

2216 

5775' 


JMP OUT+2 

2217 

6202 


6202 

2220 

4652 


JMS I HNDLR 

2221 

1000 


1000 

2222 

0200 


200 

2223 

0007 


7 

2224 

7402 


HLT 

2225 

6201 


6201 

2226 

1 774 


TAD I (611 

2227 

621 1 


621 1 

2230 

1 373 


TAD (-7655 

2231 

7640 


SZA CLA 

2232 

5772 • 


JMP OUT 

2233 

620 1 


620 1 

2234 

1253 


TAD MON 

2235 

3654 


DCA I MON1 

2236 

1253 


TAD MON 

2237 

3655 


DCA I M0N2 

2240 

6213 


6213 

2241 

6202 


6202 

2242 

4652 


JMS I HNDLR 

2243 

5000 


5000 

2244 

0200 


200 

2245 

0007 


7 

2246 

7402 


HLT 

224 7 

4777 * 


JMS MESAGE 

22 50 

2347 


ASDONE 

2251 

5771 ' 


JMP START 

2252 

760 7 

HNDLR, 

760 7 

2253 

0435 

MON, 

435 

2254 

0612 

M0N1 , 

612 

2255 

0 630 

M0N2 , 

630 

2256 

3736 

HELLO, 

TEXT /-ttTHELLO! 

2257 

3636 



22 60 

1005 



22 61 

1414 



22 62 

1 741 



2263 

3736 




t t PROGRAM TO PROTECT TDHE SYSTEM HB 
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# 


/FKOGKAM TO PROTECT TDttE SYSTEM PALS b/tt/72 PAGE 1-1 


2264 3620 

2265 2217 

2266 0722 

2267 0115 

2270 4024 

2271 1740 

2272 2022 

2273 1724 

22 74 0 50 3 

2275 2440 

2276 2404 

2277 7005 

2300 4023 

2301 3123 

2302 2405 

2303 1540 

2304 1001 

230 5 1604 

2306 1405 

2307 2200 

2310 3736 HELL02 1 TEXT /*-tDO YOU WANT TO RUN THIS PROGRAMCY=YES;ANY 0* 

2311 0417 

2312 4031 

2313 1725 

2314 4027 

2315 0116 

2316 2440 

2317 2417 

2320 4022 

2321 2516 

2322 4024 

2323 1011 

2324 2340 

2325 2022 

2326 1707 

2327 2201 

2330 1550 

2331 3175 

2332 3105 

2333 2373 

2334 0116 

2335 3140 

2336 1724 

2337 1005 

2340 2240 

2341 0310 

2342 0122 

2343 7500 

2344 1617 HELL03, TEXT /NO)?:/ 

2345 5177 

2346 7200 

2347 3736 ASDONE, TEXT "-tAS AND DE REMOV/ED FROM MONITOR.*-:" 

2350 0123 

2351 4001 

2352 1604 
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/PROGRAM TO PROTECT TDttE SYSTEM 


PALS S/tt/72 


PAGE 1-2 


2353 

2354 

2355 

2356 

2357 

2360 

2361 

2362 

2363 

2364 

2365 

2366 

2367 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2400 
240 1 
2402 
240 3 
2404 
240 5 
240 6 

240 7 
2410 

241 1 

2412 

2413 

2414 

241 5 

2416 

2417 

2420 

2421 

2422 

2423 

2424 

2425 

2426 

242 7 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 
2440 




4004 
0540 
220 5 
1 51 7 
2605 
0440 


0 622 

1 71 5 
40 15 
1 71 6 
1 1 24 
1 722 
5637 
3600 
2400 
2416 
0123 
061 1 
2420 
7447 
3400 


PAGE 


4712 

JMS 

I HNDL 

0610 

610 


0200 

200 


001 3 

1 3 


7402 

HLT 


7300 

CLA 

CLL 

1 777 

TAD 

I (236 

1 376 

TAD 

(200 

331 1 

DCA 

TEMP 

1 71 1 

TAD 

I TEMP 

1 375 

TAD 

(-4631 

7650 

SNA 

CLA 

5222 

UMP 

. +5 

4774' OUT, 

JMS 

MESAGE 

2515 

ERR 

/ 

6203 

6203 

5773 

UMP 

I (760! 

4774 ’ 

JMS 

MESAGE 

3000 

USR 


4774 • 

JMS 

MESAGE 

3034 

USR2 


4774 ’ 

JMS 

MESAGE 

30 70 

USRJ 


231 1 

ISZ 

TEMP 

231 1 

ISZ 

TEMP 

231 1 

ISZ 

TEMP 

4774 ' 

JMS 

MESAGE 

3240 

LPT 


6031 

KSF 


5235 

JMP 

. -1 

6036 

KRb 


6046 

TLS 

/EC1 


• t t DEVICES NOT FOUND***-1 *UUITT I IMG*/ 


/WANT LINE PRINTER LPT? 
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/PROGRAM TO PROTECT TDttE SYSTEM PALB 6 / 6/12 


PAGE 1-3 


2441 

1 372 


TAD (7447 /-"Y 


2442 

7640 


SZA CLA 


2443 

371 1 


DCA I TEMP 


2444 

231 1 


ISZ TEMP /DTAO 


2445 

231 1 


ISZ TEMP /DTA1 


2446 

371 1 


DCA I TEMP /ELIM DTAl 

(OTHERWI 

244 7 

1 371 


TAD (-6 


2450 

331 3 


DCA T2 


2451 

1 314 


TAD PTCH 


2452 

3770 * 


DCA TAPES + 1 3 


2453 

231 1 


ISZ TEMP /DTA2 


24 54 

4774 • 

AGN* 

JMS MESAGE 


2455 

3255 


TAPES /DO YOU WANT 

TAPE DTA2 

2456 

6031 


KSF 


2457 

5256 


JMP .-1 


24 60 

6036 


KRB 


2461 

6046 


TLS 


2462 

1 372 


TAD (7447 


2463 

7640 


SZA CLA 


2464 

371 1 


DCA I TEMP 


2465 

231 1 


ISZ TEMP 


2466 

1 770 • 


TAD TAPES+13 


2467 

1 367 


TAD (100 


24 70 

3770 • 


DCA TAPES+13 


24 71 

2313 


ISZ T2 


24 72 

52 54 


JMP AGN 


2473 

231 1 


ISZ TEMP /PTH 


24 74 

231 1 


ISZ TEMP /CDR 


2475 

4774 • 


JMS MESAGE 


2476 

3272 


CARD /DO YOU WANT 

CARD READ 

24 7 7 

60 31 


KSF 


2500 

52 77 


JMP .-1 


250 1 

6036 


KRB 


250 2 

6046 


TLS 


250 3 

1 372 


TAD (7447 


2504 

7640 


SZA CLA 


250 5 

371 1 


DCA I TEMP 


2506 

131 1 


TAD TEMP 


250 7 

1 366 


TAD (7765 /-13 SET TO 

LPT 

2510 

5765* 


JMP STRT2 


251 1 

0000 

TEMP j 

0 


2512 

760 7 

HNDLRX, 

7607 


2513 

0000 

T2 t 

0 


2514 

6277 

PTCH.» 

62 7 7 


2515 

3736 

ERR* 

TEXT /-»t**DEVICES MOT 

FOUND**- 

2516 

3652 




2517 

5204 




2520 

0526 




2521 

1 103 




2522 

0523 




2523 

40 16 




2524 

1 724 




2525 

4006 




252 6 

1 725 




2527 

1 604 





DESTROY SYS HNDLR) 


CDR? 
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/PROGRAM TO PROTECT TD8E SYSTEM PAL« H/6/72 PAGE 1-A 


2530 

52 52 



2531 

3736 



2532 

3652 



2533 

2125 



2534 

1 12A 



2535 

2A1 1 



253 6 

1 60 7 



2537 

5200 



2565 

2600 



2566 

7765 



2567 

0100 



2570 

32 70 



2571 

7772 



2572 

7AA7 



2573 

760 5 



25 7A 

3A0O 



2575 

31 A7 



2576 

0200 



2577 

0236 


PAGE 

2600 

3263 

STRT2, 

DCA TEMPX 

2601 

4777' 


JMS MESAGE 

2602 

3122 


DEOI /YOU HAVE SPECIFIED SAVING ONLY: 

260 3 

A777 ' 


JMS MESAGE 

260 A 

31 A5 


DEVIC2 /SYS,DSK,TTY,DTAO,PTP,PTR, 

260 5 

1 663 


TAD I TEMPX 

260 6 

7650 


SNA CLA 

260 7 

5212 


JMP SCND 

2610 

A777' 


JMS MESAGE 

261 1 

2666 


LPTR /LPT, 

2612 

2263 

SCND, 

ISZ TEMPX 

2613 

2263 


ISZ TEMPX /DTA1 

261 A 

22 63 


ISZ TEMPX /DTA2 

2615 

1 376 


TAD (-6 

261 6 

32 6A 


DCA T 

261 7 

1265 


TAD A2 

2620 

3272 


DCA DTAX+1 

2621 

1663 

TRY, 

TAD I TEMPX 

2622 

7650 


SNA CLA 

2623 

5226 


JMP THRD 

262A 

A777 • 


JMS MESAGE 

2625 

2671 


DTAX /DTA2, 

2626 

2263 

THRD, 

ISZ TEMPX 

2627 

2272 


ISZ DTAX+1 

2630 

226A 


ISZ T 

2631 

5221 


JMP TRY 

2632 

2263 


ISZ TEMPX /PTR 

2633 

2263 


ISZ TEMPX /CDR 

263A 

1 663 


TAD I TEMPX 

2635 

7650 


SNA CLA 

2636 

52A1 


JMP LAST 

2637 

A777 * 


JMS MESAGE 

26A0 

2674 


READER /CDR. 

26A 1 

A777' 

LAST, 

JMS MESAGE 

26A2 

31 63 


SURE /-TARE You SURE THIS IS 0K(Y=YES)? 
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/PROGRAM TO PROTECT TD0E SYSTEM PALS 6/6/72 PAGE 1-5 


2643 

60 31 


KSF 

2644 

5243 


JMP .-1 

2645 

6036 


KRB 

2646 

6046 


TLS 

2647 

1 375 


TAD (7447 

2650 

7640 


SZA CLA 

2651 

5774 ' 


JMP START 

2652 

6202 


6202 

2653 

4773 


JMS I (7607 

2654 

4610 


4610 

2655 

0200 


200 

2656 

0013 


13 

2657 

7402 


HLT 

2660 

4777' 


JMS MESAGE 

2661 

3210 


FINAL /♦-»-r **DEVICES CHANGED***-1 EXIT TO MONITOR 

2662 

5772* 


JMP OUT +2 

2663 

0000 

TEMPX, 

0 

2664 

0000 

T, 

0 

2665 

01 62 

A2, 

0162 

2666 

1 420 

LPTR, 

TEXT /LPT,/ 

2667 

2454 



2670 

0000 



2671 

0424 

DTAX, 

TEXT /DTA2,/ 

2672 

0 1 62 



2673 

5400 



2674 

0304 

READER, 

TEXT /GDR./ 

2675 

2256 



2676 

0000 



2772 

2420 



2773 

760 7 



2774 

2400 



2775 

7447 



2776 

7772 



2777 

3400 


PAGE 

3000 

3736 

USR, 

TEXT /-tttUSR DEVICES BEING DELETED FROM PS6.-TDTA0I 

300 1 

3636 


3002 

2523 



300 3 

2240 



3004 

0 40 5 



300 5 

261 1 



3006 

0305 



300 7 

2340 



30 1 0 

0205 



301 1 

1116 



3012 

0 740 



30 1 3 

0405 



30 14 

1405 



301 5 

2405 



301 6 

0440 



301 7 

0622 



3020 

l 71 5 



3021 

4020 



3022 

2370 



3023 

5637 
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/PROGRAM TO PROTECT TDBE SYSTEM PALtt 6 / 6/72 PAGE 1-6 


3024 3604 

3025 2401 

302 6 60 54 

3027 2331 

30 30 23 54 

3031 0423 

30 32 1354 

3033 0000 

30 34 2424 USR2 * TEXT /TTY,PTP,PTR SAVED AUTOMATICALLY.-1DTA1 DELETF* 

3035 3154 

3036 2024 

3037 2054 

3040 2024 

3041 2240 

3042 2301 

3043 2 60 5 

3044 0440 

3045 0125 

3046 2417 

304 7 1501 

3050 2411 

3051 0301 

30 52 1414 

3053 3156 

3054 3736 

3055 0424 

3056 0161 

3057 4004 

30 60 0 514 

3061 0524 

30 62 0 504 

3063 4001 

3064 2524 

30 65 1 715 

3066 0124 

3067 0000 

3070 1 103 USR3 1 TEXT /1CALLY.-rtANSWER THE FOLLOWING UUESTIONSCY=YE* 

3071 01 14 

3072 1431 

3073 5637 

3074 3636 

3075 01 16 

3076 2327 

3077 0522 

3100 4024 

3101 1005 

3102 4006 

3103 1714 

3104 1417 

3105 271 1 

3106 1607 

3107 4021 

3110 2505 

31 1 1 2324 

3112 1117 


20 






/PROGRAM to PROTECT TD8E SYSTEM PALb «/b/72 PAGE 1-7 


3113 1623 

3114 5031 

3115 7531 

3116 0523 

3117 5173 

3120 3736 

3121 0000 

3122 3736 DEVI, TEXT /-ttttYOU HAVE SPECIFIED SAVING ONLY:/ 

3123 3636 

3124 3631 

3125 1725 

3126 4010 

3127 0126 

3130 0540 

3131 2320 

3132 0503 

3133 1106 

3134 1105 

3135 0440 

3136 2301 

3137 261 1 

3140 160 7 

3141 4017 

3142 1614 

3143 31 72 

3144 0000 

3145 3736 DEVIC2, TEXT /-tSYS,DSK,TTY,DTA0,PTP,PTR,/ 

3146 2331 

3147 2354 

3150 0423 

3151 1354 

3152 2424 

3153 3154 

3154 0424 

3155 0160 

3156 5420 

3157 2420 

3160 5420 

3161 2422 

3162 5400 

31 63 3736 SURE, TEXT /-t-t-rARE YOU SURE THIS IS OK<Y=YES)???:/ 

3164 3736 

3165 3736 

3166 0122 

3167 0540 

31 70 31 1 7 

3171 2540 

3172 2325 

3173 2205 

3174 4024 

3175 1011 

3176 2340 

3177 1123 

3200 4017 

320 1 13 50 
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/PROGRAM TO PROTECT TDttE SYSTEM 


PALtt S/tt/72 


PAGE 1-6 


32(42 
32(4 3 
32(44 
32(4 5 
32(4 6 
32(4 7 
3210 
321 1 
3212 
321 3 
3214 
321 5 
3216 

321 7 

3220 

3221 

3222 

3223 

3224 

3225 

3226 

322 7 

3230 

3231 

3232 

3233 

3234 

3235 

3236 

3237 

3240 

3241 

3242 

3243 

3244 

3245 

3246 

3247 

3250 

3251 

3252 

3253 

3254 

3255 

3256 

3257 

3260 

3261 

3262 

3263 
32 64 

3265 

3266 

3267 
32 70 


« 


3175 

3105 

2351 

7777 

7772 

0000 

3736 FINAL, TEXT /-t-t ****DEVICES CHANGED*** 4 -1 -1 EXIT TO MONITOR* 
3736 
5252 
5252 
0405 
261 1 
0 30 5 
2340 
0310 
0116 
0 70 5 
0452 
5252 
3736 
3736 
0530 
l 124 
4024 

1 740 
151 7 
1 61 1 
2417 
2237 
3600 

3736 LPT, TEXT /-tWANT LINE PRINTER LPT?/ 

2 701 
1 624 
4014 
1116 
0 540 
2022 
1116 
2405 
2240 
1420 
2477 
0000 

3736 TAPES, TEXT /-tDO YOU WANT TAPE DTA2?/ 

041 7 
4031 
1 725 
4027 
0116 
2440 
2401 
2005 
4004 
2401 
6277 
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/PROGRAM TO PROTECT TDbE SYSTEM PALS b/b/72 PAGE 1-9 


3271 13000 

3272 3736 CARD, TEXT /«-»DO YOU WANT CARD READER CDR?/ 

3273 0A17 

32 74 40 31 

3275 1725 

3276 4027 

3277 0116 

3300 2440 

3301 0301 

3302 2204 

3303 4022 

3304 0501 

330 5 040 5 

330 6 2240 

3307 0304 

3310 2277 

3311 0000 





PAGE 

3400 

0000 

MESAGE, 

0 


340 1 

7300 


CLA 

CLL 

3402 

1 600 


TAD 

I MESAGE 

340 3 

3255 


DCA 

TMP 

3404 

2200 


ISZ 

MESAGE 

340 5 

1 655 

NXXT, 

TAD 

I TMP 

3406 

60 30 

NXT1 , 

KCF 


340 7 

7450 


SNA 


3410 

5600 


JMP 

I MESAGE 

341 1 

0377 


AND 

( 7700 

3412 

7012 


RTR 


3413 

70 12 


RTR 


3414 

7012 


RTR 


3415 

1 376 


TAD 

( -40 

3416 

7510 


SPA 


341 7 

1 375 


TAD 

( 100 

3420 

1 374 


TAD 

(240 

3421 

1 373 


TAD 

( -336 

3422 

7510 


SPA 


3423 

5230 


JMP 

. +5 

3424 

7440 


S£A 


3425 

1 372 


TAD 

(2 

342 6 

1 371 


TAD 

(212 

3427 

5231 


JMP 

. +2 

3430 

1 370 


TAD 

(336 

3431 

4256 


JMS 

TYPE 

3432 

1 655 


TAD 

I TMP 

3433 

0367 


AND 

( 77 

34 34 

7450 


SNA 


3435 

5206 


JMP 

NXT1 

3436 

1 376 


TAD 

( -40 

3437 

7510 


SPA 


3440 

1375 


TAD 

( 100 

3441 

1 374 


TAD 

(240 

3442 

1373 


TAD 

( -336 

3443 

7510 


SPA 


3444 

5251 


JMP 

.+5 
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/PROGRAM TO PROTECT TDdE SYSTEM PAL8 d/8/72 


PAGE 1-114 


3445 
344 6 
344 7 

3450 

3451 

3452 

3453 
34 54 

34 55 

3456 

3457 

3460 

3461 

3462 

3463 
3567 

3570 

3571 

35 72 

3573 

3574 

3575 

3576 

3577 


7440 


SZA 


1372 


TAD 

<2 

1 371 


TAD 

(212 

5252 


JMP 

. +2 

1 370 


TAD 

(336 

4256 


JMS 

TYPE 

2255 


ISZ 

TMP 

5205 


JMP 

NXXT 

0000 

TMP » 

0 


0000 

TYPE.* 

0 


6041 


TSF 


5257 


JMP 

.-1 

6046 


TLS 


7200 


CLA 


5656 


JMP 

I TYI 

0077 




0336 




0212 




0002 




7442 




0240 




0100 




7740 




7700 
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